home *** CD-ROM | disk | FTP | other *** search
/ WINMX Assorted Textfiles / Ebooks.tar / Text - Mathematics - Numerical Mathematics and Computing (F).zip / sim1.f < prev    next >
Text File  |  2002-06-11  |  690b  |  31 lines
  1. C
  2. C PAGE 352: NUMERICAL MATHEMATICS AND COMPUTING, CHENEY/KINCAID, 1985
  3. C
  4. C FILE: SIM1.FOR
  5. C
  6. C LOADED DIE PROBLEM SIMULATION (RANDOM)
  7. C
  8.       DIMENSION  M(6),Y(6)  
  9.       DATA  L,N/256,1000/   
  10.       DATA  (Y(I),I=1,6)/0.2,0.34,0.56,0.72,0.89,1.0/     
  11.       DO 2 I = 1,6
  12.         M(I) = 0  
  13.    2  CONTINUE
  14.       DO 5 I = 1,N
  15.         RANNUM = RANDOM(L)  
  16.         DO 3 K = 1,6
  17.           IF(RANNUM .LT. Y(K))  GO TO 4 
  18.    3    CONTINUE  
  19.    4    M(K) = M(K) + 1     
  20.    5  CONTINUE    
  21.       PRINT 6,(M(I),I = 1,6)
  22.    6  FORMAT(5X,6I5)
  23.       STOP
  24.       END 
  25.   
  26.       FUNCTION RANDOM(L)
  27.       L = MOD(16807*L,2147483647)
  28.       RANDOM = REAL(L)*4.6566128752458E-10      
  29.       RETURN
  30.       END 
  31.